Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient

Public Class DAOValidar
    Public Function nombreCliente(ByVal client As String) As Boolean 'metodo que se fija si el cliente a guardar ya tiene un nombre existende
        Dim con As String = ConfigurationManager.ConnectionStrings("Conex").ConnectionString
        Dim cn As New SqlConnection(con)

        Try
            cn.Open()
            Dim sql As New SqlCommand("clientes_BUSCAR", cn)
            'primero el nombre del sp y despues la conexion
            sql.CommandType = CommandType.StoredProcedure

            sql.Parameters.Add("@NRO_CLIENTE", SqlDbType.NVarChar)
            sql.Parameters("@NRO_CLIENTE").Value = DBNull.Value

            sql.Parameters.Add("@RAZON_SOCIAL", SqlDbType.NVarChar)
            sql.Parameters("@RAZON_SOCIAL").Value = client
            Dim dr As SqlDataReader = sql.ExecuteReader()
            'creo el datareader con laconsulta
            If dr.Read() Then
                'si contiene una fila, es q existe ese cliente
                Return True
            Else
                Return False


            End If
        Catch e As Exception
            Return False
        Finally
            cn.Close()
        End Try
    End Function
End Class
